home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 4: GNU Archives / Linux Cubed Series 4 - GNU Archives.iso / gnu / binutils.7 / binutils / binutils-2.7 / gas / testsuite / gasp / mdouble.asm < prev    next >
Encoding:
Assembly Source File  |  1996-07-04  |  441 b   |  48 lines
  1.  
  2.     .MACRO    HI
  3.     A
  4.     \! this is hidden
  5.     B
  6.     ! this is not
  7.     C
  8.     .ENDM
  9.     Hello 
  10.     HI
  11.     Emily
  12.     
  13.  
  14.     H'0f
  15.     200+H'0F
  16.  
  17. XX    .ASSIGNA    Q'100
  18. ! Definition:
  19.     .MACRO    GET X=100,Y,Z
  20.     MOV    #\X+H'0F,@B
  21.     \Y
  22. \Z    JMP    @MAIN
  23. L\@    ADD     #1,@HL
  24.     MOV    #0,@C    \! Clear C
  25.     ADD    #2,@C
  26.     ADD    #\&XX, @C
  27.     .ENDM
  28.  
  29.     NOP
  30.  
  31. !Call:    
  32.     GET    200,"ADD #1,@B", ENTRY
  33.     .END
  34.  
  35.     ; Definition:
  36.  
  37.  
  38.     NOP
  39.  
  40.     ;Call:    
  41.     MOV    #200+0F,@B
  42.     ADD #1,@B
  43. ENTRY:    JMP    @MAIN
  44. L00000:    ADD     #1,@HL
  45.     MOV    #0,@C    
  46.     ADD    #2,@C
  47.     ADD    #0, @C
  48.